أضف التالي في موديل
Public Const EWX_LOGOFF = 0
Public
Const EWX_SHUTDOWN = 1
Public Const EWX_REBOOT = 2
Declare Function
ExitWindowsEx Lib "user32" _
(ByVal uFlags As Long, ByVal dwReserved _
As
Long) As Long
لإيقاف الجهاز ضع التالي في المكان المناسب
(t& = ExitWindowsEx(EWX_SHUTDOWN, 1
لإعادة تشغيل الجهاز ضع التالي في المكان المناسب
(t& = ExitWindowsEx(EWX_REBOOT, 2
لتسجيل خروج ضع التالي في المكان المناسب
(t& = ExitWindowsEx(EWX_LOGOFF, 0